home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / blitz-list200994.lha / blitz-list / 000074_blitz-list-request_Tue Jul 19 06:21:31 1994.msg < prev    next >
Internet Message Format  |  1994-09-20  |  2KB
  1. Received: from zeus ([139.86.128.2]) by kantti.helsinki.fi (8.6.9/8.6.5) with SMTP id GAA13302 for <blitz-list@helsinki.fi>; Tue, 19 Jul 1994 06:21:11 +0300
  2. Received: from helios.usq.edu.au (helios) by zeus with SMTP id AA12417
  3.   (5.65c/IDA-1.4.4 for <blitz-list@helsinki.fi>); Tue, 19 Jul 1994 13:18:06 -1000
  4. Message-Id: <199407192318.AA12417@zeus>
  5. Received: by helios.usq.edu.au
  6. From: tom duncan <duncan@zeus.usq.edu.au>
  7. Subject: Screen Flash Problem
  8. To: blitz-list@helsinki.fi
  9. Date: Tue, 19 Jul 1994 13:14:25 +1000 (EST)
  10. MIME-Version: 1.0
  11. Content-Type: text/plain; charset="us-ascii"
  12. Content-Transfer-Encoding: 7bit
  13. X-Status: 
  14. Status: RO
  15.  
  16. OK guys,
  17.     I know this must be easy but how do I stop the screen flashing
  18. when I load in an image onto another hidden screen.
  19. I have tried moving the screen down out of the way but the flash still
  20. happens.
  21.  
  22. Here is the code.
  23.  
  24. WBStartup
  25. NoCli
  26.  
  27.  
  28. S.b=2
  29.  
  30.  
  31. For a=1 To 20
  32.    f$="CDX:Temp/F/1.lres"
  33.    Gosub Action19
  34.    ShowScreen S : VWait 100
  35.    f$="CDX:Temp/F/2.mres"
  36.    Gosub Action19 : VWait 100
  37.    ShowScreen S
  38. Next
  39. End
  40.  
  41.  
  42. Action19:
  43.    ; Load Screen
  44.    S=5-S
  45.    ; load or initialise a screen into S
  46.    If Len(f$)>0 AND Exists(f$)
  47.       ; Load image
  48.       ILBMInfo f$
  49.       w.w=ILBMWidth
  50.       h.w=ILBMHeight
  51.       d.w=ILBMDepth
  52.       Id.l=ILBMViewMode
  53.       Free Window S : Free Screen S : Free BitMap S
  54.       BitMap S,w,h,d
  55.       Screen S,0,0,w,h,d,Id,"",1,2,S
  56.       PalRGB S,0,0,0,0
  57.       HideScreen S
  58.       ; Now Open Window onto Screen
  59.       Window S,0,0,w,h,$0900,"",1,2,S
  60.       LoadScreen S,f$,S
  61.       Use Palette S
  62.       OK.b=True
  63.    Else
  64.       r=Request("ERROR","Cant open file "+f$,"BYE") : End
  65.       OK.b=False
  66.    EndIf
  67. Return
  68.  
  69. Any ideas anyone
  70. And any quicker ways to load an IFF image.
  71.  
  72. Tom Duncan
  73. duncan@usq.edu.au
  74.  
  75.  
  76.